home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / byteibm.arc / FRIED.ARC / FPSAV.ASM < prev    next >
Encoding:
Assembly Source File  |  1985-07-12  |  857 b   |  65 lines
  1. NAME    FPSAV
  2.  
  3. ; Floating point -- Savage (transcendentals and trigonometrics)
  4.  
  5. ; Assembly language subroutine source for PI program.
  6. ; Provided to Byte Magazine by:
  7.  
  8. ; MicroWay, Inc.
  9. ; PO Box 79
  10. ; Kingston MA 02364
  11.  
  12. ; (617) 746-7341
  13.  
  14. ; Copyright (C) MicroWay, Inc., 1986.
  15.  
  16. .8087
  17.  
  18. PUBLIC    FPSAV
  19.  
  20. EXTRN    $LOD$I:FAR
  21. EXTRN    $EXD$I:FAR
  22. EXTRN    $ATD$I:FAR
  23. EXTRN    $TAD$I:FAR
  24.  
  25. DGROUP    GROUP    COMMON
  26.  
  27. COMMON    SEGMENT    PARA COMMON 'BLANK'
  28.  
  29. _DSRC    DW    10240 DUP (?)
  30. _DDEST    DW    10240 DUP (?)
  31. SPC$1_    DD    1.0
  32. SPC$2_    DD    2.0
  33. SPC$3_    DD    3.0
  34. SV$A    DD    0.0
  35. SV$B    DD    ?
  36.  
  37. COMMON    ENDS
  38.  
  39. CODE    SEGMENT    WORD PUBLIC 'CODE'
  40.  
  41. ASSUME    CS:CODE, DS:DGROUP
  42.  
  43. FPSAV    PROC    FAR
  44.  
  45.     MOV    CX,476
  46.     FINIT
  47.     FLD1
  48. AGAIN:    FMUL    ST,ST(0)
  49.     FSQRT
  50.     CALL    $LOD$I
  51.     CALL    $EXD$I
  52.     CALL    $ATD$I
  53.     CALL    $TAD$I
  54.     FLD1
  55.     FADDP    ST(1),ST
  56.     LOOP    AGAIN
  57.  
  58.     RET
  59.  
  60. FPSAV    ENDP
  61.  
  62. CODE    ENDS
  63.  
  64.     END
  65.